home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / edit / thedos20.zip / join.the < prev    next >
Text File  |  1994-11-16  |  399b  |  15 lines

  1. /* This macro executes an "append" join rather than an "overwrite" join */
  2. If modifiable() & \incommand() & \inprefix() Then
  3.   Do
  4.     'extract /margin/cursor'
  5.     save_marg = margins.1 margins.2 margins.3
  6.     'sos endchar'
  7.     'join'
  8.     'set margins' cursor.4 cursor.4 '+0'
  9.     'sos marginl'
  10.     'set margins' save_marg
  11.   End
  12. Else
  13.    'emsg Error 0038: invalid cursor position'
  14. Return
  15.